home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / developer / script / make_gobo.rexx < prev    next >
OS/2 REXX Batch file  |  1999-10-10  |  1KB  |  42 lines
  1. /* make_gobo.rexx -- Create gobo.lha archive.
  2.  *
  3.  * $VER: make_gobo.rexx 1.2 (10.10.99)
  4.  */
  5. AddLib('rexxsupport.library', 0, -30, 0)
  6. Address Command
  7.  
  8. sofa_path    = 'sofa:'
  9. archive_path = 'sofa:archive/'
  10. library_path = 'sofa:library/'
  11. gobo_path    = 'sofa:library/gobo/'
  12.  
  13. gobo_lha = 't:gobo.lha'
  14. temp_file = 't:make_gobo_lha.tmp'
  15.  
  16. old_path = Pragma('Directory', gobo_path || 'library')
  17.  
  18. /* Create gobo.lha */
  19. Say 'clean gobo directories'
  20. call Delete(gobo_path || 'src/gelex/gelex')
  21. call Delete(gobo_path || 'src/gepp/gepp')
  22. call Delete(gobo_path || 'src/geyacc/geyacc')
  23. 'list ' || gobo_path || ' pat=#?.(o|lnk) all lformat="delete *"%p%n*"" >' || temp_file
  24. 'execute ' || temp_file
  25.  
  26. /* Make gobo archive */
  27. Say 'make gobo.lha'
  28. Say
  29. old_path = Pragma('Directory', library_path)
  30. 'lha -xadern a "' || gobo_lha || '" gobo'
  31. Say
  32. 'list nohead "' || gobo_lha || '"'
  33. 'copy quiet clone "' || gobo_lha || '" "' || archive_path || 'gobo.lha"'
  34.  
  35. /* Clean up */
  36. call Delete(gobo_lha)
  37. call Delete(temp_file)
  38. Pragma('Directory', old_path)
  39.  
  40. exit 0
  41.  
  42.